Indy komponenty
Otázka od: Petr Kracik
21. 11. 2003 18:11
mel bych takovej dotaz, kdyz neco udelam s Indym, dejme tomu ftp
client, telnet client nebo cokoli a nastavim spatne HOST tak me slitne
app se socket error, kdyz to pustim ne z Delphi tak to akorat napise
dialog: socket error nejaky_cislo: Host not found
vo tohle mi ale nejde, ja bych rad tychle "errory" odchytil, proste si
chci hodit vlastni dialot chyby a ne cekat co me vyflusne Indy
dik moc Petr
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Petr Vones
21. 11. 2003 18:20
From: "Petr Kracik" <petr.kracik@atlas.cz>
> vo tohle mi ale nejde, ja bych rad tychle "errory" odchytil, proste si
> chci hodit vlastni dialot chyby a ne cekat co me vyflusne Indy
Ze by odchytit prislusnou vyjimku ?
Petr Vones
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Petr Zahradnik
21. 11. 2003 18:29
Puvodni zprava ze dne 21.11.2003:
> mel bych takovej dotaz, kdyz neco udelam s Indym, dejme tomu ftp
> client, telnet client nebo cokoli a nastavim spatne HOST tak me slitne
> app se socket error, kdyz to pustim ne z Delphi tak to akorat napise
> dialog: socket error nejaky_cislo: Host not found
> vo tohle mi ale nejde, ja bych rad tychle "errory" odchytil, proste si
> chci hodit vlastni dialot chyby a ne cekat co me vyflusne Indy
Tak zkus jako obvykle try-except.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, 400 07 Usti nad Labem
telefon: 475 501 627, mobil: 602 409 601, fax: 475 511 338
web: http://www.clexpert.cz, e-mail: clexpert@clexpert.cz
ICQ: 21215917, MSN: clexpert@clexpert.cz
==========================================================
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Lukas Gebauer
21. 11. 2003 21:30
> mel bych takovej dotaz, kdyz neco udelam s Indym, dejme tomu ftp
> client, telnet client nebo cokoli a nastavim spatne HOST tak me slitne
> app se socket error, kdyz to pustim ne z Delphi tak to akorat napise
> dialog: socket error nejaky_cislo: Host not found
> vo tohle mi ale nejde, ja bych rad tychle "errory" odchytil, proste si
> chci hodit vlastni dialot chyby a ne cekat co me vyflusne Indy
Zlata Synapse, kde si muzes sam zvolit, jestli chces ci nechces vyhazovat
vyjimky. 
--
Lukas Gebauer.
E-mail: gebauerl@mlp.cz
WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Petr Kracik
23. 11. 2003 0:08
Muzete me trochu nakopnout?
jak se to try - except pouziva??
nebo try - finaly
Jo v Synapse sem nenasel TimeClient
mam takocehle zdrojak:
procedure tlacitko.clik;
var cas:tdatetime;
begin
idtime1.Host:=edit1.Text;
cas:=idtime1.DateTime;
memo1.Lines.Add('Datum: '+datetostr(cas));
memo1.Lines.Add('Cas: '+timetostr(cas));
if idtime1.SyncTime then
memo1.Lines.Add('Hodiny serizeny')
else
memo1.Lines.Add('Chyba');
end;
nehledejte neco na styl idtime1.connect;
kdyz ho tam dam tak me kousek dal zakousne na tom You alery connected,
takze ten idtime1.DateTime; se asi pripoji sam, me de vo to aby me to
nehodilo chybu co vytvori Indy ale aby to hodilo mou chybu, treba ze
bych ji nacpal do toho mema
dik
Petr
PZ> Puvodni zprava ze dne 21.11.2003:
>> mel bych takovej dotaz, kdyz neco udelam s Indym, dejme tomu ftp
>> client, telnet client nebo cokoli a nastavim spatne HOST tak me slitne
>> app se socket error, kdyz to pustim ne z Delphi tak to akorat napise
>> dialog: socket error nejaky_cislo: Host not found
>> vo tohle mi ale nejde, ja bych rad tychle "errory" odchytil, proste si
>> chci hodit vlastni dialot chyby a ne cekat co me vyflusne Indy
PZ> Tak zkus jako obvykle try-except.
PZ> Petr Zahradnik, pocitacovy expert
PZ> ==========================================================
PZ> Petr Zahradnik, Computer Laboratory
PZ> Obvodova 740/14, 400 07 Usti nad Labem
PZ> telefon: 475 501 627, mobil: 602 409 601, fax: 475 511 338
PZ> web: http://www.clexpert.cz, e-mail: clexpert@clexpert.cz
PZ> ICQ: 21215917, MSN: clexpert@clexpert.cz
PZ> ==========================================================
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Robert Suska
23. 11. 2003 0:47
Ahoj
Skus to takto
procedure tlacitko.clik;
var cas:tdatetime;
begin
idtime1.Host:=edit1.Text;
cas:=idtime1.DateTime;
memo1.Lines.Add('Datum: '+datetostr(cas));
memo1.Lines.Add('Cas: '+timetostr(cas));
try
idtime1.SyncTime;
memo1.Lines.Add('Hodiny serizeny');
except on E: Exception do
memo1.Lines.Add('Chyba' + E.Message);
end;
end;
A niesom si isty ale pri komponente TClientSocket resp. TServerSocket treba
este do obsluhy udalozsti OnError naplit Code na 0 alebo 1 ja teraz neviem
pisem z hlavy a nemam delphi a chce sa mi spat 
Robo
----
Muzete me trochu nakopnout?
jak se to try - except pouziva??
nebo try - finaly
Jo v Synapse sem nenasel TimeClient
mam takocehle zdrojak:
procedure tlacitko.clik;
var cas:tdatetime;
begin
idtime1.Host:=edit1.Text;
cas:=idtime1.DateTime;
memo1.Lines.Add('Datum: '+datetostr(cas));
memo1.Lines.Add('Cas: '+timetostr(cas));
if idtime1.SyncTime then
memo1.Lines.Add('Hodiny serizeny')
else
memo1.Lines.Add('Chyba');
end;
nehledejte neco na styl idtime1.connect; kdyz ho tam dam tak me kousek dal
zakousne na tom You alery connected, takze ten idtime1.DateTime; se asi
pripoji sam, me de vo to aby me to nehodilo chybu co vytvori Indy ale aby to
hodilo mou chybu, treba ze bych ji nacpal do toho mema dik
Petr
PZ> Puvodni zprava ze dne 21.11.2003:
>> mel bych takovej dotaz, kdyz neco udelam s Indym, dejme tomu ftp
>> client, telnet client nebo cokoli a nastavim spatne HOST tak me
>> slitne app se socket error, kdyz to pustim ne z Delphi tak to akorat
>> napise
>> dialog: socket error nejaky_cislo: Host not found vo tohle mi ale
>> nejde, ja bych rad tychle "errory" odchytil, proste si chci hodit
>> vlastni dialot chyby a ne cekat co me vyflusne Indy
PZ> Tak zkus jako obvykle try-except.
PZ> Petr Zahradnik, pocitacovy expert
PZ> ==========================================================
PZ> Petr Zahradnik, Computer Laboratory
PZ> Obvodova 740/14, 400 07 Usti nad Labem
PZ> telefon: 475 501 627, mobil: 602 409 601, fax: 475 511 338
PZ> web: http://www.clexpert.cz, e-mail: clexpert@clexpert.cz
PZ> ICQ: 21215917, MSN: clexpert@clexpert.cz
PZ> ==========================================================
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Robert Suska
23. 11. 2003 0:48
Ahoj
Este jeden maly dodatok, rozhodne prejdi na Synapse, osobne mam so Synapse
velmi dobre skusenosti. Nejake veci ktore sa mi nedali rozbehat cez Indy
jednalo sa o https prenos dat cez Indy proste nie a nie rozbehat a to iste
som potom skusil cez Synapse a slape to ako hodinky a je s m aj menej prace
lebo je to vsetko logicky napisane.
Len tolko som este chcel...
Robo
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On
Behalf Of Petr Kracik
Sent: Saturday, November 22, 2003 11:54 PM
To: delphi-l@clexpert.cz
Subject: Re: Indy komponenty
Muzete me trochu nakopnout?
jak se to try - except pouziva??
nebo try - finaly
Jo v Synapse sem nenasel TimeClient
mam takocehle zdrojak:
procedure tlacitko.clik;
var cas:tdatetime;
begin
idtime1.Host:=edit1.Text;
cas:=idtime1.DateTime;
memo1.Lines.Add('Datum: '+datetostr(cas));
memo1.Lines.Add('Cas: '+timetostr(cas));
if idtime1.SyncTime then
memo1.Lines.Add('Hodiny serizeny')
else
memo1.Lines.Add('Chyba');
end;
nehledejte neco na styl idtime1.connect; kdyz ho tam dam tak me kousek dal
zakousne na tom You alery connected, takze ten idtime1.DateTime; se asi
pripoji sam, me de vo to aby me to nehodilo chybu co vytvori Indy ale aby to
hodilo mou chybu, treba ze bych ji nacpal do toho mema dik
Petr
PZ> Puvodni zprava ze dne 21.11.2003:
>> mel bych takovej dotaz, kdyz neco udelam s Indym, dejme tomu ftp
>> client, telnet client nebo cokoli a nastavim spatne HOST tak me
>> slitne app se socket error, kdyz to pustim ne z Delphi tak to akorat
>> napise
>> dialog: socket error nejaky_cislo: Host not found vo tohle mi ale
>> nejde, ja bych rad tychle "errory" odchytil, proste si chci hodit
>> vlastni dialot chyby a ne cekat co me vyflusne Indy
PZ> Tak zkus jako obvykle try-except.
PZ> Petr Zahradnik, pocitacovy expert
PZ> ==========================================================
PZ> Petr Zahradnik, Computer Laboratory
PZ> Obvodova 740/14, 400 07 Usti nad Labem
PZ> telefon: 475 501 627, mobil: 602 409 601, fax: 475 511 338
PZ> web: http://www.clexpert.cz, e-mail: clexpert@clexpert.cz
PZ> ICQ: 21215917, MSN: clexpert@clexpert.cz
PZ> ==========================================================
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Lukas Gebauer
23. 11. 2003 21:51
> Jo v Synapse sem nenasel TimeClient
Spatne si hledal... podivej se na sntpsend.pas.
Zrovna nedavo sel konferenci priklad na jednoduchou parradkovou
proceduru, pomoci ktere si sesynchronizujes cas s nejakym internetovym
serverem (nebo jinym pocitacem ve tve lokalni siti). A rozhodne te pri
tom zadne exceptions nebudou obtezovat.
--
Lukas Gebauer.
E-mail: gebauerl@mlp.cz
WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)